1 REM Antonio Verdugo Ltd.
2 PRINT AT 1,3; FLASH 1;"LA QUINIELA DE LA JORNADA"
3 PRINT
4 PRINT
8 FOR n=1 TO 14
10 LET a=INT (RND*7)+1
15 BORDER a: PAUSE 7
20 IF a=1 OR a=2 OR a=3 OR a=7 THEN PRINT TAB 13;1
30 IF a=4 OR a=5 THEN PRINT TAB 14;"X"
40 IF a=6 THEN PRINT TAB 15;2
50 NEXT n
60 IF a=7 THEN PRINT AT 7,18;"ESTA TOCA!"
70 PLOT 104,144: DRAW 0,-113: DRAW 24,0: DRAW 0,113: DRAW -24,0
80 PLOT 112,144: DRAW 0,-113
90 PLOT 120,144: DRAW 0,-113
100 FOR N=0 TO 96 STEP 8
110 PLOT 104,136-N: DRAW 24,0
120 NEXT N
130 PRINT AT 20,8;"Hacemos otra?"
140 IF INKEY$="s" THEN RUN
150 IF INKEY$<>"n" THEN GO TO 140
160 PRINT AT 19,1;"Este programa se autodestruira          en    segundos"
170 FOR n=1 TO 22: BEEP .1,10: PRINT AT 20,12;22-n: PAUSE 40
175 IF n>10 THEN PRINT AT 20,13;" "
180 NEXT n
190 NEW